home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 54.zip / BS part 54 / VirtualBeautyStudio.adf / install.dat < prev    next >
Encoding:
Text File  |  1993-03-03  |  6.9 KB  |  348 lines
  1. { install 3dkit2/vr2 to amiga hard disk }
  2. { install program written by BIZZARE COMPUTING for DOMARK }
  3. { version 13/2/93 }
  4.  
  5. { v255 = language (0 europe 1 usa)
  6.   v200 = source disk number (1/2)
  7. }
  8.  
  9. { $1 = program name (3dkit/vrs)
  10.   $3 = dest disk volume name
  11.   $4 = dest directory name
  12.   $5 = do name (md,cp or * for end)
  13.   $6 = filename
  14.   $8 = source disk 1 volume name
  15.   $9 = source disk 2 volume name
  16. }
  17.  
  18.         set 1 v255 { 0 for 3dkit2 1 for vrs2 }
  19.  
  20.   onerrorgoto error
  21.  
  22.         ifeq v255 0 goto languk
  23.  
  24. label langusa
  25.         set$ "VIRTUAL REALITY STUDIO 2.07" $1
  26.         set$ "DH0" $3
  27.         set$ "VRS2" $4
  28.         set$ "3D_PROGRAM:" $8
  29.         set$ "3D_CLIPART:" $9
  30.         goto langcont
  31.  
  32. label languk
  33.   set$ " 3D CONSTRUCTION KIT  2.07" $1
  34.         set$ "DH0" $3
  35.         set$ "3DK2" $4
  36.         set$ "3D Kit II - V2.07:" $8
  37.         set$ "CLIP_ART:" $9
  38.  
  39. label langcont
  40. label retrydestination
  41.  
  42. { prompt for destination volume name }
  43.  
  44.   setwindow 0
  45.   clearwindow
  46.   print "$1" 60 15
  47.  
  48.   print "ENTER THE DESTINATION VOLUME NAME" 28 40
  49.   edit$ 3 26 60
  50.   if$eq "$03" "$99" goto aborted
  51.  
  52. { prompt for destionation path name }
  53.  
  54.   setwindow 0
  55.   clearwindow
  56.   print "$1" 60 15
  57.  
  58.   print "ENTER THE DESTINATION DIRECTORY NAME" 16 40
  59.   edit$ 4 26 60
  60.   if$eq "$04" "$99" goto aborted
  61.  
  62. { verify from user }
  63.  
  64.   setwindow 0
  65.   clearwindow
  66.   print "$1" 60 15
  67.  
  68.   print "DO YOU WANT TO INSTALL TO :" 52 35
  69.   print "$3:$4" 10 50
  70.   print "PRESS Y OR N" 112 65
  71.  
  72. label waityn1
  73.   waitkey v0
  74.   ifeq 78 v0 goto retrydestination
  75.   ifeq 110 v0 goto retrydestination
  76.   ifeq 89 v0 goto wasy1
  77.   ifne 121 v0 goto waityn1
  78. label wasy1
  79.  
  80.   setwindow 0
  81.   clearwindow
  82.   print "$1" 60 15
  83.  
  84. { check exists destination volume/path }
  85.  
  86. { do the copying }
  87.  
  88.   setwindow 0
  89.   clearwindow
  90.   print "$1" 60 15
  91.   print "INSERT DISK 1 INTO A DISK DRIVE" 36 40
  92.   print "THEN PRESS THE SPACE BAR" 64 60
  93.  
  94.   set   1   v200  { start with disk 1 }
  95.   set$  "$8"  $2    { start from program disk }
  96.  
  97. label waitspace1
  98.   waitkey v0
  99.   ifeq v0 27 goto aborted
  100.   ifne v0 32 goto waitspace1
  101.  
  102.   setwindow 0
  103.   clearwindow
  104.   print "$1" 60 15
  105.  
  106.   print "COPYING DISK 1 TO HARD DISK" 52 50
  107.  
  108.   restore disk1files
  109.  
  110. { make main directory and create its icon file }
  111.  
  112.   scrolllow
  113.   printlow "CREATING:" 10
  114.   printlow "$3:$4" 82
  115.   makedir "$3:$4"
  116.   copyfile "$2ICONFILE" "$3:$4.info"
  117.   scrolllow
  118.   printlow "DONE." 10
  119.  
  120. label procloop
  121.  
  122.   read$ $10
  123.   read$ $11
  124.  
  125.   if$eq "$10" MD goto makedir
  126.   if$eq "$10" CP goto copyfile
  127.   if$eq "$10" * goto endlist
  128.  
  129.   print "BAD LIST ENTRY:$10" 20 70
  130.  
  131.   pause
  132.  
  133.   goto error
  134.  
  135. label makedir
  136.   scrolllow
  137.   printlow "CREATING:" 10
  138.   printlow "$11" 82
  139.   makedir "$11"
  140.   scrolllow
  141.   printlow "DONE." 10
  142.   goto procloop
  143.  
  144. label copyfile
  145.   scrolllow
  146.   printlow "COPYING :" 10
  147.   printlow "$11" 82
  148.   copyfile "$2$11" "$3:$4/$11"
  149.   scrolllow
  150.   printlow "DONE." 10
  151.   goto procloop
  152.  
  153. label endlist
  154.   add 1 v200
  155.   ifeq  3 v200  goto  iscomplete
  156.  
  157.   setwindow 0
  158.   clearwindow
  159.   print "$1" 60 15
  160.   print "INSERT DISK 2 INTO A DISK DRIVE" 36 40
  161.   print "THEN PRESS THE SPACE BAR" 64 60
  162.  
  163.   set$  "$9"  $2    { now read from clip art disk }
  164.  
  165. label waitspace2
  166.   waitkey v0
  167.   ifeq v0 27 goto aborted
  168.   ifne v0 32 goto waitspace2
  169.  
  170.   setwindow 0
  171.   clearwindow
  172.   print "$1" 60 15
  173.   print "COPYING DISK 2 TO HARD DISK" 52 50
  174.   restore disk2files
  175.  
  176.   goto procloop
  177.  
  178. label iscomplete
  179.   setwindow 0
  180.   clearwindow
  181.   print "$1" 60 15
  182.   print "INSTALL COMPLETE." 92 40
  183.   print "PRESS SPACE TO CONTINUE" 64 60
  184.  
  185. label waitspace3
  186.   waitkey v0
  187.   ifne v0 32 goto waitspace3
  188.  
  189.         end
  190.  
  191. label disk1files
  192.   md  "$3:$4/editfile"
  193.   cp  "3dedit"
  194.   cp  "3dmake"
  195.   cp  "3dreadme"
  196.   cp  "3dsound"
  197.   cp  "3dedit.info"
  198.   cp  "3dmake.info"
  199.   cp  "3dreadme.info"
  200.   cp  "3dsound.info"
  201.   cp  "editfile/3dedit.3bd"
  202.   cp  "editfile/3dedit.3kd"
  203.   cp  "editfile/3dedit.3sd"
  204.   cp  "editfile/3dedit.3sm"
  205.   cp  "editfile/3dedit.3td"
  206.   cp  "editfile/3dedit.rsc"
  207.   cp  "editfile/3dedit.scr"
  208.   cp  "editfile/3dmake.rsc"
  209.   cp  "editfile/6x6font.3fd"
  210.   cp  "editfile/8x8font.3fd"
  211.   cp  "editfile/front.exe"
  212.   cp  "editfile/runner.exe"
  213.   cp  "editfile/runner.rsc"
  214.   *
  215.  
  216. label disk2files
  217.   md  "$3:$4/BRUSH"
  218.   md  "$3:$4/CLIP_ART"
  219.   md  "$3:$4/DATA"
  220.   md  "$3:$4/BORDERS"
  221.   md  "$3:$4/SOUND"
  222.   cp  "CLIP_ART/0001.3OD"
  223.   cp  "CLIP_ART/0002.3OD"
  224.   cp  "CLIP_ART/0003.3OD"
  225.   cp  "CLIP_ART/0004.3OD"
  226.   cp  "CLIP_ART/0005.3OD"
  227.   cp  "CLIP_ART/0006.3OD"
  228.   cp  "CLIP_ART/0007.3OD"
  229.   cp  "CLIP_ART/0008.3OD"
  230.   cp  "CLIP_ART/0009.3OD"
  231.   cp  "CLIP_ART/0010.3OD"
  232.   cp  "CLIP_ART/0011.3OD"
  233.   cp  "CLIP_ART/0012.3OD"
  234.   cp  "CLIP_ART/0013.3OD"
  235.   cp  "CLIP_ART/0014.3OD"
  236.   cp  "CLIP_ART/0015.3OD"
  237.   cp  "CLIP_ART/0015t.3OD"
  238.   cp  "CLIP_ART/0016.3OD"
  239.   cp  "CLIP_ART/0017.3OD"
  240.   cp  "CLIP_ART/0018.3OD"
  241.   cp  "CLIP_ART/0019.3OD"
  242.   cp  "CLIP_ART/0020.3OD"
  243.   cp  "CLIP_ART/0021.3OD"
  244.   cp  "CLIP_ART/0022.3OD"
  245.   cp  "CLIP_ART/0023.3OD"
  246.   cp  "CLIP_ART/0024.3OD"
  247.   cp  "CLIP_ART/0025.3OD"
  248.   cp  "CLIP_ART/0026.3WD"
  249.   cp  "CLIP_ART/0027.3OD"
  250.   cp  "CLIP_ART/0028.3OD"
  251.   cp  "CLIP_ART/0029.3OD"
  252.   cp  "CLIP_ART/0030.3OD"
  253.   cp  "CLIP_ART/0031.3OD"
  254.   cp  "CLIP_ART/0032.3OD"
  255.   cp  "CLIP_ART/0033.3OD"
  256.   cp  "CLIP_ART/0034.3OD"
  257.   cp  "CLIP_ART/0035.3OD"
  258.   cp  "CLIP_ART/0036.3OD"
  259.   cp  "CLIP_ART/0037.3OD"
  260.   cp  "CLIP_ART/0038.3OD"
  261.   cp  "CLIP_ART/0039.3OD"
  262.   cp  "CLIP_ART/0040.3WD"
  263.   cp  "CLIP_ART/0041.3WD"
  264.   cp  "CLIP_ART/0042.3OD"
  265.   cp  "CLIP_ART/0043.3OD"
  266.   cp  "CLIP_ART/0044.3OD"
  267.   cp  "CLIP_ART/0045.3OD"
  268.   cp  "CLIP_ART/0046.3OD"
  269.   cp  "CLIP_ART/0047.3OD"
  270.   cp  "CLIP_ART/0048.3OD"
  271.   cp  "CLIP_ART/0049.3OD"
  272.   cp  "CLIP_ART/0050.3OD"
  273.   cp  "CLIP_ART/0051.3OD"
  274.   cp  "CLIP_ART/0052.3OD"
  275.   cp  "CLIP_ART/0053.3OD"
  276.   cp  "CLIP_ART/0054.3OD"
  277.   cp  "CLIP_ART/0055.3OD"
  278.   cp  "CLIP_ART/0056.3WD"
  279.   cp  "CLIP_ART/0057.3OD"
  280.   cp  "CLIP_ART/0058.3WD"
  281.   cp  "CLIP_ART/0059.3OD"
  282.   cp  "CLIP_ART/0060.3OD"
  283.   cp  "CLIP_ART/0061.3OD"
  284.   cp  "CLIP_ART/0062.3OD"
  285.   cp  "CLIP_ART/0063.3OD"
  286.   cp  "CLIP_ART/0064.3OD"
  287.   cp  "CLIP_ART/0065.3OD"
  288.   cp  "CLIP_ART/0066.3OD"
  289.   cp  "CLIP_ART/0067.3OD"
  290.   cp  "CLIP_ART/0068.3WD"
  291.   cp  "CLIP_ART/0069.3WD"
  292.   cp  "CLIP_ART/0070.3OD"
  293.   cp  "CLIP_ART/0071.3WD"
  294.   cp  "CLIP_ART/0072.3WD"
  295.   cp  "CLIP_ART/0073.3WD"
  296.   cp  "CLIP_ART/0074.3OD"
  297.   cp  "CLIP_ART/0075.3OD"
  298.   cp  "CLIP_ART/0076.3OD"
  299.   cp  "CLIP_ART/0077.3WD"
  300.   cp  "CLIP_ART/0078.3OD"
  301.   cp  "CLIP_ART/0079.3WD"
  302.   cp  "CLIP_ART/0080.3OD"
  303.   cp  "CLIP_ART/0081.3OD"
  304.   cp  "CLIP_ART/0082.3OD"
  305.   cp  "CLIP_ART/0083.3OD"
  306.   cp  "CLIP_ART/0084.3OD"
  307.   cp  "CLIP_ART/0085.3OD"
  308.   cp  "CLIP_ART/0086.3OD"
  309.   cp  "CLIP_ART/0087.3OD"
  310.   cp  "CLIP_ART/0088.3WD"
  311.   cp  "CLIP_ART/0089.3OD"
  312.   cp  "CLIP_ART/0090.3OD"
  313.   cp  "CLIP_ART/0091.3OD"
  314.   cp  "CLIP_ART/0092.3OD"
  315.   cp  "BORDERS/DRILLER.IFF"
  316.   cp  "BORDERS/FUNHOUSE.iff"
  317.   cp  "BORDERS/KITGAME.IFF"
  318.   cp  "BORDERS/space.iff"
  319.   cp  "BORDERS/subgame.iff"
  320.   cp  "SOUND/default.3sm"
  321.   cp  "BRUSH/WORLD.iff"
  322.   *
  323.  
  324. label aborted
  325.   setwindow 0
  326.   clearwindow
  327.   print "$1" 60 15
  328.  
  329.   print "INSTALL WAS ABORTED." 80 50
  330.  
  331.   pause
  332.  
  333.   END
  334.  
  335. label error
  336.   setwindow 0
  337.   clearwindow
  338.   print "$1" 60 15
  339.  
  340.   print   "AN ERROR OCCURED!" 92 40
  341.   print   "INSTALLATION WAS NOT COMPLETED." 36 60
  342.  
  343.   pause
  344.  
  345.   end
  346.  
  347. { end of file }
  348.